home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MOS / HDLERROR.D < prev    next >
Encoding:
Modula Definition  |  1990-09-28  |  1.2 KB  |  36 lines
  1. DEFINITION MODULE HdlError;
  2.  
  3.  
  4. FROM SysTypes IMPORT ExcDesc;
  5.  
  6. FROM ErrBase IMPORT ErrResp, RtnCond;
  7.  
  8. FROM MOSGlobals IMPORT MemArea;
  9.  
  10. TYPE    ErrProc = PROCEDURE (     (* errNo:   *) INTEGER,
  11.                                   (* msg:     *) ARRAY OF CHAR, (* max. 32 Zeichen *)
  12.                                   (* causer:  *) ErrResp,
  13.                                   (* cont:    *) RtnCond,
  14.                               VAR (* excData: *) ExcDesc ): BOOLEAN;
  15.         (* RETURN: FALSE: Continue Prg.; TRUE: Not caught *)
  16.  
  17.  
  18. PROCEDURE CatchErrors ( call: ErrProc; workSpace: MemArea ): BOOLEAN;
  19.   (*
  20.    * Liefert FALSE, wenn Anmeldung nicht durchführbar ist.
  21.    *)
  22.  
  23. PROCEDURE SysCatchErrors ( call: ErrProc; workSpace: MemArea ): BOOLEAN;
  24.  
  25. PROCEDURE ReleaseCatcher ( call: ErrProc );
  26.  
  27. PROCEDURE GetErrorMsg ( number: INTEGER; VAR msg: ARRAY OF CHAR );
  28.   (*
  29.    * Liefert in 'msg' einen String (Höchstlänge 32 Zeichen), der eine
  30.    * Beschreibung der zugehörigen Fehlernummer enthält.
  31.    * Die Fehlernummern sind in 'MOSGlobals' definiert, die Meldungen
  32.    * werden über 'MOSConfig.RuntimeErrMsg' initialisiert (z.B. in 'GEMError').
  33.    *)
  34.  
  35. END HdlError.
  36.